home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 7
/
Aminet 7 - August 1995.iso
/
Aminet
/
comm
/
mebbs
/
fferror.lha
/
FFERROR.REX
Wrap
OS/2 REXX Batch file
|
1992-06-07
|
761b
|
33 lines
/* Program to Lharc an entire disk into separate files by directories */
/* Tell Arexx to direct unknown commands to the DOS port */
ADDRESS COMMAND
say
say center("FishFood Data Validator by Bob Scheel",76)
say center("The Nervous System BBS",76)
say center("1-305-226-8393 38400 baud HST",76)
say center("1-305-554-9332 2400 baud",76)
say center("FIDONET 1:135/309",76)
say
/* load a library if unsuccessfull bail out */
t = addlib("rexxsupport.library",0,-30,0)
do d = 0 to 6
mx = 0
fc = 'Fish:Fishcontents' || d
if Exists(fc) then
do
t = open(fc,fc,"Read")
say 'Beginning scan of' fc
do l=1 while eof(fc)=0
contents = readln(fc)
n = length(contents)
if n > 79 then
say contents
mx = max(mx,n)
end
say 'Max=' mx
end
end
exit